home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib09.dsk
/
LORES PLOTTING FORM (IMGWRT).bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
33 lines
10 REM **********************
20 REM LO-RES PLOTTING FORM
30 REM (C) COPYRIGHT 1981
40 REM STEVEN SCHWARTZ, PH.D.
50 REM **********************
60 REM
70 REM SET PRINTER TO TOP-OF-
80 REM FORM BEFORE BEGINNING
90 REM
100 HOME
110 VTAB 4: INVERSE : PRINT "TURN ON PRINTER AND PRESS <RETURN> ";: GET A$
120 NORMAL
130 PR# 1
140 PRINT CHR$(9);"132N": PRINT CHR$(27);"q"
150 PRINT "PROG. NAME ";: FOR H = 1 TO 65: PRINT CHR$(95);: NEXT H: PRINT " DATE ";: FOR H = 1 TO 23: PRINT CHR$(95);: NEXT H
160 PRINT : PRINT
170 PRINT "LAYOUT OF #";: FOR H = 1 TO 94: PRINT CHR$(95);: NEXT H: PRINT : PRINT : PRINT
190 PRINT " 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3"
195 PRINT CHR$(27);"T08";
200 PRINT " 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
210 FOR J = 0 TO 39
220 FOR I = 1 TO 84
230 PRINT "-";: NEXT I: PRINT
240 FOR K = 1 TO 41
250 PRINT "I ";: NEXT K: PRINT " ";J
260 NEXT J
270 FOR X = 1 TO 84: PRINT "-";: NEXT X: PRINT
280 PRINT " 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3"
286 PRINT
290 PRINT " 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
300 PRINT CHR$(27);"A"
310 PR# 0
320 END